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SOFTWARE PERFORMANCE REPORT 

If you have any problem or discover any inadequacy in your FORTRAN 
software or its documentation, please report it using the Software 
Performance Report forms enclosed in your software kit. 

Give the Software Performance Report to your DEC Software 
Specialist. In most cases he will be able to provide an immediate 
answer to your problem, as he is kept informed of new information as 
soon as it becomes available. If yours is an original problem, the 
Software Specialist will ensure that all necessary details, examples, 
and supporting material are included in the Report, and then he will 
forward the complete report to DEC'S Software Information Service 
Group in Maynard, Massachusetts for a thorough investigation of your 
problem. As soon as the investigating programmer has the answer to 
your problem, it will be sent to you via the Software Specialist. 

This procedure is intended to provide fast replies to your Soft- 
ware Performance Reports either by an immediate answer front your Soft- 
ware Specialist or as the result of concentrating our software 
maintenance effort on we 11 -documented original problems. 

Your inputs are most appreciated in our continuing effort to 
improve our software , and with your help our commitment to good soft- 
ware support will remain apparent. 

If you have any questions on this procedure, please contact your 
Software Specialist. 


READER'S COMMENTS CARD 

Your attention is invited to the last page of this document. The 
‘’Reader's Comments" page, when filled in and mailed, is beneficial to 
both you and DEC; all comments received are acknowledged and are con- 
sidered when documenting subsequent manuals. 



PREFACE 


This document contains information which should expedite the integra- 
tion of FORTRAN into a PDP-11 DOS system. Please read this document 
before attempting to put FORTRAN onto the system. 

Chapter 1 is a description of how to load and operate the FORTRAN 
system. Chapter 2 contains a number c£ programming cautions and use- 
ful data on the current version of FORTRAN (IB, Compiler; 11A, Lib- 
rary) . Chapter 3 contains advice on using the FORTRAN system. Chap- 
ter 4 contains additions and corrections to the current FORTRAN IV 
manual. Chapter 5 describes the FORTRAN Library Functions. 

For more detailed information on the PDP-11 FORTRAN language and its 
implementation, see the FORTRAN IV manual { DEC- 1 1— KFDA-D) . 

All of the following directions assume: 

a. The system device is DF: 

b. The user is logged in under [1,1] 

c. The user is familiar with the use of the PDP-11 DOS system. 


Monitor prints a period (.) or dollar sign ($) to which the user can 
issue a direct command. System programs print a number sicm (#) to 
which the user can issue a command. CTRL/C causes the Monitor to print 
a period and accept a command. 


NOTE 

The characters #, and $ are underlined in 
examples to indicate that they are printed by 
the DOS Monitor. All characters printed by 
the system are underlined; user input is not. 
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STARTING FORTRAN ON THE PDP-11 


1.1 SYSTEM REQUIREMENTS TO USE FORTRAN 
1,1.1. Software Requirements 

The FORTRAN system must be run with the Disk Operating System (DOS) 
Monitor, version 4A; PIP-11, version 4A; PAL-11R, version 5A; 

LINK-11, version 5A; and Librarian, version 2A. All of these programs 
are available from the DEC Program Library. Later versions of the 
above programs are also usable. 

1.1.2 Hardware Requirements 

FORTRAN programs can be compiled and run on any hardware configuration 
which supports the PDP-11 DOS Monitor. 

1.2 PRINCIPLES OF CREATING A FORTRAN SYSTEM 

The FORTRAN System has been supplied on either paper tape or DECtape. 
Briefly, the suggested sequence of operations in building a FORTRAN 
system is as follows: 

a. Put the Compiler overlays on the system device. 

b. Put the Compiler load module on the system device. 

c. Put the Compiler diagnostic file on the system device. 

d. Put the FORTRAN Library on the system device. 

e. It is further advised that the user create a backup 
copy (with PIP) of the FORTRAN system on DECtape, if 
available on the system. 

1. 3 PRELIMINARY OPERATIONS 

Before starting the loading process, delete any files from the system 
device which have the following names: 



FTN1W.0VL 
FTN001.OVL 
FTN002.OVL 
FTN00 3 . OVL 
FTN004.OVL 
FTN005 .OVL 
FTN006 . OVL 
FORCOM.DGN 
FORTRN 
FORLIB . OBJ 
EAELIB .OBJ 


1.4 CREATING THE FORTRAN SYSTEM FROM A FORTRAN DECTAPE 


FORTRAN systems can be built with either the 8K or 12K Compiler. 

Both cannot reside on the system device simultaneously. If the system 
has 12K or more, the 12K Compiler should be used. The 8K Compiler 
presently has several operational restrictions documented in Chapter 2 
All directions regarding DECtape assume that the FORTRAN Compiler 
DECtape (and, later, the FORTRAN Library DECtape) are placed on DEC- 
tape unit 0. DT: is synonymous with DT0 : and is shown in all DECtape 
examples in the following sections. The FORTRAN Compiler DECtape 
(DEC-1 1-DFFB-UC) contains the following files: 

FORCOM.DGN 

FORTRN. 0810 
OVL08K.LDA 
OVLl 8K . LDA f 
OVL 3 8K . LDA f 
OVL 4 8K. LDA 
OVL 58K. LDA | 

0VL6 8K . LDA>* 

FORTRN. 12K> 

OVL0 . LDA | 

OVLl .LDA] 

OVL 2 . LDA l 

OVL 3 .LDA] 

OVL 4 . LDA 

OVL 5 .LDA 
OVL 6 . LDA J 

The FORTRAN Library DECtape (DEC-1 1-SFFB-UC) contains the following 
files : 


FORTRAN Diagnostic File 


8K Compiler 


12k Compiler 


FORLIB. OBJ FORTRAN Non-EAE Library 


EAELIB. OBJ 

I0LJJ1 .OBJ* 
DEFIN .OBJ 
DVTB06 . PAL 


FORTRAN EAE Library 

Optional Files (see Section 2.2.4, 2.1.5, 
and 3.4) 



In general , the philosophy of the FO RT RAN s y s tenT i s that if the 
system device is an RF1I disk, the entire system can be kept on the 
system disk. If the system device is an RK11 disk, the entire system 
except for the FORTRAN diagnostic file (FORCOM.DGM) can be kept on the 
system device. If the system device is an RC11 disk, the FORTRAN 
Compiler overlays should be kept on the system disk and all other 
components of the system run from DSCtape. 

The following instructions on loading FORTRAN from DECtape 
describe the various permutations in loading procedure for 12K and 8K 
systems as well as for system devices: DF: ? DK:, and DC: (RF11 disk, 
RK11 disk, and RCll disk, respectively) . 

1 . 4.1 Creating the FORTRAN System in 12K or More of Core 

The user should go to section 1. 4.1.1 if he has an RF11 disk, to 
section 1.4. 1.2 if he has an RK11 disk, and to section 1.4. 1.3 if 
he has an RCll disk. 

1 . 4 . 1 . 1 The 12K FORTRAN System on an RF11 Disk 

The general sequence of steps to be followed consists of loading the 
Compiler overlays, loading the FORTRAN Compiler load module, loading 
the FORTRAN diagnostic file, and then loading the FORTRAN Library 
(FORLIB or EAELIB, depending upon the system) . Details are as follows 

1. Log into the system under UIC 1,1. Perform the following 
two commands to the Monitor: 

^ASSIGN 
$AS DF : , OVL 

2. Run ‘each of the individual Compiler overlay builders as 
follows : 

$RU DT:OVL0 
$RU DT:OVLl 
$RU DT:0VL2 
$RU DT : OvL3 
$RU DT:0VL4 
$RU DT:OVL5 
$RU DT : OVL 6 



At this point , the contiguous 


present on the system disk. 


3. Place the FORTRAN Compiler load module on the system 
device after changing the version number of the 
Compiler (from V00 1A to V001B) as follows: 


SGE DT : FORTRN . 12K 
$M0 26466 

"026466/040461: 41061 
$SAVE FORTRN 
$ f C 
j. KI 

4. Run PIP and copy the FORTRAN diagnostic files onto 
the system disk,- changing the protection on the 
diagnostic file: 

$RU PIP 


PI P-11 V004A 
#DF : < DT : FORCOM . DGN/CO 
_#DF:FORCOM.DGN/PR: 200 

5. With PIP, load the appropriate FORTRAN Library object 
module: FORLIB.OBJ if a non-EAE system, or EAELIB .OBJ 

if an EAE system. (FORLIB.OBJ can be used on an EAE 
system, but EAELIB. OBJ cannot be used on a non-EAE 
system. ) 


or 


#DF : <DT : FORLIB . OBJ 


#DF : < DT : EAELIB . OBJ 


1.4=1. 2 The 12K FORTRAN System on an RKll Disk 

The general sequence of steps to be followed consists of loading the 
Compiler overlays, loading the FORTRAN Compiler load module, and 
then loading the appropriate FORTRAN Library. Details are as follows 

1. Log into the system under UIC 1,1. Perform the 
following two commands to the Monitor: 


$ASSIGN 
$AS DK : , QVL 



2 . 


changes the name of the system device, as built 
into the Compiler, from DF: to DK:): 


$GET DT : OVL0 
_$M0 36 332 

036 332/014 76J: 15270 
Ibe 


3* Run the remaining Compiler overlay builders as follows: 


j>RU DT : OVLl 
$RU DT : QVL2 
$RU DT : 0VL3 
$RU DT:0VL4 
$RU DT : 0VL5 
$RU DT : 0VL6 


4. Place the FORTRAN Compiler load module on the System 

device after changing the version number of the Compiler 
(from V001A to V001B) as follows: 

$GE DT : FORTRN . 1 2 K 
$M0 26466 

026 466/040 461: 41061 
$SAVE FORTRN 
$+C 
. KI 

5w With PIP, load the appropriate FORTRAN Library object 
module: FORLIB.OBJ if a non-EAE system or EAELIB.OBJ 

if an EAE system. (FORLIB.OBJ can be used on an 
EAE system, but EAELIB.OBJ cannot be used on a non-EAE 
system. ) 

$RU PIP 


PIP- 11 V004A 

#DK:<DT: FORLIB.OBJ 
or 

#DK : <DT : EAE LIB . OBJ 


6. The FORTRAN diagnostic file (FORCOM.DGN) does not 
function correctly at the present time on the RK11 
disk and should not be loaded onto the disk (see 
section 2.1.1 and section 2.2.6). 



1, 4 .1. 3 The 12K FORTRAN System on an RC11 Disk 


Due to the size limitations of the RC11 disk, only the Compiler 
overlay files should be kept on the system disk. All other files 
should remain DECtape resident and run from DECtape as needed. The 
process is as follows: 

1. Log into the system under UIC 1,1. Perform the following 
two commands to the Monitor: 

j? AS SIGN 
_$AS. DC : , OVL 

2. Make the following patch to the file 0VL0 which changes 
the name of the system device, as built into the Compiler, 
from DP: to DC:): 

JGE DT:OVL0SK 
_$M0 32 332 

032332/014760: 14570 
j>8E 

3. Run the remaining Compiler overlay builders as follows: 

$RU DT: 0VL1 
J>RU DT : O VL 2 
$RU DT: OVL 3 
$RU DT: 0VL4 
$RU DT : 0VL5 
$RU DT : OVL 6 

4. Maintain a copy of the FORTRAN Compiler load module on 
DECtape (unit n) after changing the version number of the 
Compiler (from V001A to V001B) as follows: 

J>GE DT : FORTRN . 12K 
£M0 26466 

026466/040461: 41061 
jjSAVE DTn: FORTRN 

_$tc 

u. KI 

When starting the Compiler the user can type: 

JRU DT: FORTRN 

which allows the Compiler to bring the overlays into 
core from the disk. 

5. Maintain a copy of the appropriate FORTRAN Library on 
DECtape: FORLIB.OBJ if a non-EAE system or EAELIB.OBJ 

if an EAE system. (FORLIB.OBJ can be used on an EAE 
system, but EAELIB.OBJ cannot be used on a non-EAE system.) 



PIP-11 V004A 


#DTn : FORLIB<DT : FGRLIB . OBJ 

or 

_#DTn : EAELIB<DT : EAEL1E . OBJ 

6. The user can put the diagnostic file, FORCOM.DGN on the 
system disk if he so desires, but size limitations on the 
disk make this undesirable in most cases (see section 2.1.1). 


1.4.2 Creating the FORTRAN System in 8K of Core 

The user should go to section 1.4. 2.1 if he has an RF11 disk, 
or to section 1.4. 2.2 if he has an RC11 disk. (RK11 disks are not 
supported on 8K machines.) The 8K Compiler does not currently 
support the diagnostic file, FORCOM.DGN (see section 2.1.1). 

1 . 4 . 2 . 1 The 8K FORTRAN System on an RFll Disk 

The general sequence of steps to be followed consists of loading 
the 8K Compiler overlays, loading the 8K FORTRAN Compiler load module, 
and then loading the appropriate FORTRAN Library file. Details are 

as follows: 

1. Log into the system under UIC 1,1. Perform the follow- 
ing two commands to the Monitor: 

$ ASSIGN 
J?AS DF: , OVL 

2. Perform the following patch to the file OVL08K.LDA: 

0GE DT:OVL08K 
$M0 31314 

031314/005067: 12737 
#31 3 16/00 Iff 36 : 1 
031320/0 12746: 32356 
031322/ 032 324 : 137 
031324/104006: 31340 
$BE 

3. Run the remaining 8K Compiler overlay builders as 
follows: 

$RU DT :OVLl8K 

$RU DT:OVL28K 

_$RU DT : OVL 3 8K 

j>RU DT:OVL48K 

$RU DT :OVL58K 

$RU DT:OVL68K 



4, Place the FORTRAN Compiler load module on the system 
device after changing the Compiler version number 
(from V001A to V001B) as follows: 


$GE DT : FORTRN . 0 8K 
$M0 22466 

022466/040461: 41061 
$SAVE FORTRN 

$tc 

_l ki 

5. With PIP, load the appropriate FORTRAN Library Object 
module: FORLIB.OBJ if a non -EAE system or EAELIB.OBJ 

if an EAE system. (FORLIB.OBJ can be used on an EAE 
system, but EAELIB.OBJ cannot be used on a non-EAE 
system. ) 

$RU PIP 


PIP- 11 V004A 

#DF : <DT : FORLIB . OBJ 
or 

#DF: <DT: EAELIB.OBJ 


1. 4 . 2 . 2 The 8K FORTRAN System on an RCll Disk 


Due to the size limitations of the RCll disk, only the 8K 
Compiler overlay files should be kept on the system disk. All other 
files should remain DECtape resident and run from DECtape as needed. 
The process is as follows : 


2 c 


Log into the system under UIC 1,1. Perform the follow- 
ing two commands to the Monitor: 

$ ASSIGN 
‘|aS DC: ,OVL 

Make the following patches to the file OVL08K (which 
changes the name of the system device, as built into 
the Compiler, from DF: to DC: as well as patching the 
8K system) : 

$GE DT : OVL0 8K 
$M0 32332 

032332/014760: 14570 
j>MO 31314 

031314/005067: 012737 
031316/001036: 1 
031320/012746: 32356 
031322/032324: 137 
031324/104006: 31340 
$BE 



- Run th e r e maining 6K Compi ler- ov e rl ay build e rs as — 
follows : 

$RU DT : 0VL18K 

$RU DT:OVL28K 

$RU DT :OVL38K 

$RU DT : OVL 4 8K 

$ RU DT : 0VL5 8K 

$ RU DT : OVL68K 

Maintain a copy of the FORTRAN Compiler load 
module on DSCtape (unit n) after changing the 
version number of the Compiler (from V001A to V001B} 
as follows: 

$GE DT : FORTRN . 12K 
$M0 22466 

022466/040461: 41.061 
$SAVE DTn: FORTRN 
$4C 
. KI 


hen starting rhe Compiler the user can tvpe 


$RU DT: FORTRN 


which allows the Compiler to bring the overlays into 
core from the disk. 


^f_ ntain a copY of the a PP r °P-iate FORTRAN Library on 
DECtape: P0RLI3.0BJ if a ncn-EAE system or EAELIB .OBJ 

if an EAE system. (FORLIB. OBJ can be used on an EAE 
system, but EAELIB. OBJ cannot be used on a non-EAE 
system) . 

$RU PIP 


PIP-il V004A 

#DTn : FORLIB <DT : FORLIB . OBJ 
# DTn: EAELIB <DT: EAELIB. OBJ 


or 



1.5 CREATING THE FORTRAN SYSTEM FROM PAPER TAPES 


FORTRAN systems can be built with either the 8 K or 12K Compiler. 
Both cannot reside on the system device simultaneously. If the system 
has 12K or more, the 12K Compiler paper tapes are supplied with the 
system. If the system has 8K, the 8K Compiler tapes are supplied. 

The 8K Compiler presently has several operational restrictions 
documented in Chapter 2. Paper Tapes delivered with the hardware 
include: 


FORTRAN Compiler Paper Tape s (one set provided) 


8K Compiler 


12K Compiler 


DEC- 11-KF1B-PL1 
DEC-11-KF1B-PL2 
DEC-11-KF1B-PL3 
DEC-11-KF1B-PL4 
DEC- 11-KF1B-PL5 
DEC-11-KF1B-PL6 
DEC-11-KF1B-PL7 
DEC-11-KF1B-PL8 


DSC-11-KF2B-PL1 
DEC-11-KF2B-PL2. 
DEC-11-KF2B-PL3 j 
DEC-11-KF2B-PL4 I 
DEC-11-KF2B-PL5 } 
DEC" 11-KF23-PL6 ! 
DEC-11-KF2B-PL7 j 
DEC-11-KF2B-PL8 J 
DEC-11-KF2B-PL9 
DEC-11-KF2B-PL10 


FORTRAN Compiler 


Compiler Overlay 
Builders 


Diagnostic File Builder 
Diagnostic File 


FORT* RAN Library (both sets provided if EAE present on system) 
EAE Version Ncn-EAE Version 


DEC-11-SFEB-PL1 
DEC-11-SFE3-PL2 
DEC-11-S.FEB-PL3 
DEC-1 1-SFEB-PL4 
DEC-11-SFEB-PL5 
DEC-11-SFEB-PL6 
DEC-11-SFEB-PL7 
DEC-11-SFEB-PL8 
DEC-1 1-SFEB-PL9 


DEC-11- SFNB-PLi 

rye* r*_ i i _ c -.dto 

J — u w 1.N r xj ^4 

DEC-11-SFNB-PL3 
DEC-11-SFN3-PL4 
DEC-11-SFNB-PL5 
DEC-11-SFNB-PL6 
DEC-11-SFNB-PL7 
DEC-11-SFNB-PL8 
DEC- 11-SFNB-PL9 


Storage philosophy is the same as for loading the system via 
DECtape. If the system device is an RF11 disk, the entire system can 
be kept on the system disk. If the system device is an RK11 disk, the 

entire system except for the FORTRAN diagnostic file (and the builder, 
DEC-ll-KFxB-PL9 and 10) can be kept on the system device. If the 
system device is an RC11 disk, the FORTRAN Compiler overlays should be 
kept on the system disk and the other components run from the paper 

tapes . 



— If Compiler e r rors occur , the Compiler extracts an appropriate 
error message from the diagnostic file, which it normally finds on the 
system device. If the file does not exist, an error code is output 
without a message. The diagnostic file is not used on systems having 
an RK11 disk or having only 8K of core; see sections 2.1.1 and 2.2.6. 

A diagnostic file build program is supplied with the FORTRAN Compiler 
tapes to create the diagnostic file, FORCOM.DGN, and give a listing of 
that file. 

The following instructions on loading FORTRAN from paper tape 
describe the various permutations in loading procedures forl2Kand 8K 
systems as well as for system devices: DK:, DF, and DC: {RK11 disk, 
RF11 disk, and RCll disk, respectively) . 


1.5.1 Creating the FORTRAN System in 12K or More of Core 

The user should go to section 1.5. 1.1 if he has an RF11 disk, 
to section 1.5. 1.2 if he has an RX11 disk, and to section 1.5. 1.3 if 
he has an RCll disk. 


1.5. 1.1 The 12K FORTRAN System on an RFll Disk 


The general sequence of steps to be followed consists of loading 
the Compiler overlays, loading the FORTRAN Compiler load module, 
building and listing the FORTRAN diagnostic file, and then 
loading the FORTRAN Library. Details are as follows: 


1. Log into the system under UIC 1,1. Perform the following 
two commands to the Monitor: 

^ASSIGN 
£AS DF: , OVL 

2. Run each of the individual Compiler overlay builders 
(DEC-11-KF2B-PL2 to PL8) from the high-speed paper 
tape reader giving the following command each time: 

$RU PR: 


3. Place the FORTRAN Compiler load module (DEC- 11-KF2B-PL1) 
on the system device after changing the Compiler version 
number (from V00 1A to V001B) . Place the tape in the 
high-speed reader and proceed as follows: 

$GE PR: 

_$M0 26 466 

026466/040461: 41061 

$ SAVE FORTRN 




DEC-li-Ki‘2B-PL9 in the high-speed reader and proceeding as 
follows : 


$GE PR: 

Put DEC-1 1-KF2B-PL1# in the high-speed reader. If the 
system has a line printer, make sure it is on-line, 
otherwise give the following command: 

$AS KB : , 5 

New give the following command: 

$BE 

The paper tape in the reader is read, the file FORCOM.DGN 
is created on the disk, and a listing of the diagnostic 
file is generated on the line printer or terminal. Now 
change the protection on the diagnostic file as follows: 

$tc 

. KI 

$ RU PIP 


PIP-11 V00 4 A 

#DF : FORCOM. DGN/PR : 200 

5. With PIP, load the appropriate FORTRAN Library tapes: 
the SFEB set if the system has EAE and the SFNB set if 
the system does not have EAE. Place DEC-ll-SFxB~PLl in 
the high-speed reader and proceed as follows: 


#EAELIB<PR: /FB , /FB , /FB , /F3 , /FB , /FB 
or 

#FORLIB<PR: /FB , /FB , /FB , /FB , /FB , /FB 

After each individual tape is read, the message: 

A002 063320 
J? 

is printed. Load the next tape in the high-speed 
reader and type CO followed by the RETURN key. 

6. Once the Library tapes are loaded, LIBR-11 must be run 
to create a library from the file created by PIP. 
Proceed as follows: 

$ + C 
,KI 

"$RU LIBR 


LI3R-11 V002A 

#EAELI B . OBJ , LP : EAELIB . LST< , EAELIB 
or 


#FORLIB . OBJ , LP : FORLI B . LST< , FORLIB 

The filename of the listing file is used as the title of 
the listing. 



1.5. 1. 2 The_12K FORTRAN System on an RKll Disk, 


The general sequence of steps to be followed consists of loading 
the Compiler overlays, loading the FORTRAN Compiler load module, and 
then loading the appropriate FORTRAN Library. Details are as follows 


L Log into the system under UIC 1,1, Perform the following 
two commands to the Monitor: 

$ AS SIGN 
$ AS DK : , OVL 

Put the tape DEC-11-XFZR-PL2 into the high-speed reader. 

2. Make the following patch to the first Compiler overlay' 
this changes the name of the system device, as built 
into the Compiler, from DF: to DK: 

$GE PR; 

$M0 36332 

036332/014760: 15270 
$BE 

3. Run the remaining Compiler overlay builders 
(DEC-11~KF2 b-PL 3 through PL8) from the high-speed 
reader, giving the following command each time: 

$ RU PR: 

4. Place the FORTRAN Compiler load module (DEC-11-KF2B-PL1) 
on the system device after changing the version number 
of the Compiler (from V001A to V001B) as follows: 

$GE PR: 

$M0 26466 

026466/040461: 41061 
$SAVE FORTRN 
$ tc 

7k i 

5. The FORTRAN diagnostic file (FORCOM.DGN) does not function 
correctly at the present time on the RKll disk and should 
not be loaded onto the disk. Tapes DEC-11-KF2B-PL9 

and PL10 should not be used with an RKll disk.' See 
sections 2.1.1 and 2.2.6. 

6. With PIP, load the appropriate FORTRAN Library tapes: 
the SFEB set if the system has EAE and the SFNB set 

if the system does not have EAE. Place DEC-ll-SFxB-PLl 
in the high-speed reader and proceed as follows: 

$RU PIP 


PIP-11 V004A 

fEAELIB <P R : /FB , /FB , /FB , /FB , /FB , /FB 
or 

#F0RLIB<PR: /FB , /FB , /FB , /FB , /FB , /FB 
After each individual tape is read, the message: 

A002 063320 

1 

is printed. Load the next tape in— the high speed reader 
and type CO followed by the RETURN key. 



Once the Library tapes are loaded , LIBR-11 must be run 
to cr eate a libra r y from the file cr eated by P IP . 
Proceed as follows: 

$+C 
. KI 

$RU LIBR 
LIBR-11 V002A 

#EAELIB . OBJ , LP : EAELIB . LST< , EAELIB 
or 

#FORLIB .OBJ , LP : FORLIB . LST< f FORLIB 

The filename of the listing file is used as the title 
of the listing. 


1.5. 1.3 The 12K FORTRAN System on an RC11 Disk 


Due to the size limitations of the RCll disk, only the Compiler 
overlay files should be kept on the system disk. All other files 
should be run from paper tape. The process is as follows: 

1. Log into the system under UIC 1,1. Perform the following 
two commands to the Monitor: 

$ ASSIGN 
1? AS DC : , OVL 

2. Put the tape DEC-1 1-KF2B-PL2 into the high-speed 
reader. Make the following patch to the first Compiler 
overlay; this changes the name of the system device, 

as built into the Compiler, from DF: to DC: 

$GE PR: 

_$M0 36 332 

036332/014760: 14570 
%BE 

3. Run the remaining Compiler overlay builders (DEC-11-KF2B-PL3 
through PL8) from the high-speed reader, giving the 
following command each time: 

$RU PR: 

4. For storage conservation it is recommended that the 
user not attempt to use the FORTRAN diagnostic file 
with the RCll disk (see sections 2.1.1 and 2.2.6). 

However, if it is desired to use the diagnostic file 
while learning about the system, following step 3 above, 
proceed as shown below: 

Load the diagnostic file build program by loading 
DEC-11-KF2B-PL9 in the high-speed reader and give the 
following command; 

$GE PR: 

Put DEC- 11-KF2B-PL10 in the high-speed reader. If the 
system has a line printer, make sure it is on-line; 
otherwise, give the command: 

$AS KB:, 5 



5. 


. Now give the command : 

i BE 

The paper tape in the reader is read, the file FORCOM.DGN 
is created on the disk, and a listing of the diagnostic 
file is generated on the line printer or terminal. 

The user should keep a copy of DEC-11-KF2B-PL1 , the 
FORTRAN Compiler load module on paper tape, after chang- 
ing the version number of the Compiler (from V001A to 
V001B) as follows: 

£GE PR: 

|M0 26466 

026466/04046 1: 41061 
£SAVE PP : 

6. In order to keep the FORTRAN Library on paper tape, the 
user has the option of creating one large library or 
six amaller libraries. To create one large library, 
follow the directions in section 1.5. 1.2, step 7, 
specifying PP : as the output device to the LIBR-11. 

To create six smaller libraries, run LIBR-11 six times 
following the directions in section 1.5. 1.2, step 7, 
specifying PP: as the output device and PR: as the 
input device for each of the six libraries. 


1.5.2 C reating the FORTRAN System in 8K of Core 


The user should go to section 1.5. 2.1 if he has an RF11 disk, 
or to section 1.5, 2.2 if he has an RC11 disk. (RK11 disks are not 
supported on 8K machines.) The 8K Compiler does not currently 
support the diagnostic file, FORCOM.DGN. 


1.5. 2.1 The 8K FORTRAN System on an RF11 Disk 


The general sequence of steps to be followed consists of loading 
the 8K Compiler overlays, loading the 8K Compiler load module, and then 
loading the appropriate FORTRAN Library file. Details are as follows: 


1. Log into the system under UIC 1,1. Perform the 
following two commands to the Monitor: 

^ASSIGN 
0AS DF : , OVL 

2. Place DEC-11-KF1B-PL2 in the high-speed reader. 
Perform the following patch to the 8K Compiler: 

1GE PR: 

£M0 31314 

031314/00506.7: 12737 
031316/001036: 1 
031320/012746: 32356 
031322/032324: 137 
031324/104006 :_31340 
$BE' ' 



3. Run each of the remaining 8K Compiler overlay builders 
— (DEC - ll-KFlB~ J?Jr3 — t hrough PL 8) — from — th e high - sp ee d 

reader giving the following command each time: 

$RU PR: 

4. Place the FORTRAN Compiler load module ( DEC-1 1-KF1B-PL1) 
on the system device after changing the Compiler version- 
number (from VJ0J01A to VJ0J01B) . Place the tape in the 
high-speed reader and proceed as follows: 

$GE PR: 

$M0 22466 

022466/040461: 41061 
$SAVE FORTRN 

$tc 

KI 

5. With PIP, load the appropriate FORTRAN Library tapes: 
the SFEB set if the system has EAF. and the SFNB set if 
the system does not have EAE. Place DEC-11-SFxB-PLl in 
the high-speed reader and proceed as follows: 

$RU PIP 


PIP-11 V004A 

#EAELIB <PR : /FB , /FB f /FB , /FB , /FB , /FB 
or ~ 

#FORLIB<PR: /FB , /FB , /FB , /FB , /FB , /FB 

After each individual tape is read, the message: 

A002 0 36 3320 

$ 

is printed. Load the next tape in the high-speed 
reader and type CO followed by the RETURN key, 

6. Once the Library tapes are loaded, LI8R-11 must be 

run to create a library from the file created by PIP. 
Proceed as follows : 

$ 1C 
.KI 

$RU LIBR 


LIBR-11 V002A 

#EAELI3 . OBJ , LP : EAE LIB . LST< , EAELIB 
or ~ 

#FORLIB . OBJ , LP : FORLIB . LST< , FORLIB 

The filename of the listing file is used as the title 
of the listing. To run the Library from paper tape, 
see section 1 . 5 . 2 . 2 , step 5 . 

1 . 5 . 2 . 2 The 8K FORTRAN System on an RC11 Disk 

Due to the size limitations of the RC11 disk, only the Compiler 
overlay files should be kept on the system disk. All other files 
should be run from paper tape. The details follow. 



1 . — h og into t h e system under UIC 1,1. Perform the 

following two commands to tns Monitor : 

$ AS SIGN 
$AS DC : , OVL 

2. Put the tape DEC-11-KF1B-PL2 into the high-speed 
reader. .Make the following patch to the first 
Compiler overlay; this changes the name of the 
system device, as built into the Compiler, from DF: 
to DC: and patches the 8K Compiler) : 

$GS PR: 

$MG 32332 

032332/014760: 1457.0 
$M0 31314 

031314/005067: 012737 
031316/001036: 1 
031320/012746: 32356 
031322/032324: 137 
031324/104006: 31340 
$BE 

3. Run the remaining Compiler overlay builders 
(DEC-1 1-KF1B-PL3 through PL8) from the high-speed 
reader, giving the following command each time: 

$RU PR: 

4. The user should keep a copy of DEC-11-KF1B-PL1, the 
FORTRAN Compiler load module on paper tape after 
changing the Compiler version number (from 

V001A to V001B) . Place the tape in the high-speed 
reader and proceed as follows: 

$GE PR: 

$M0 22466 

022466/040461: 41061 
$SAVE PP : 

5. In order to keep the FORTRAN Library on paper tape, 
the user has the option of creating one large library 
or six smaller libraries. To create one large library, 
follow the directions in section 1.5. 1.2, step 7, 
specifying PP: as the output device to LIBR-11. 

To create six smaller libraries, run LIBR-11 six times 
following the directions in section 1.5. 1.2, step 7, 
specifying PP : as the output device and PR: as the 
input device for each of the six libraries. 


1.6 STORAGE OF THE FORTRAN SYSTEM 


The user must keep the Compiler overlay files on the system 
disk. The Compiler load module (FORTRN) can be kept on the [1,1] 
area of the system disk or, optionally, on DECtape (see section 
1.4. 1.3, step 4) or paper tape (see section 1.5. 1.3, step 5) and 
run as follows: 

$RU DT: FORTRN 
or 

$RU PR: 



If compilation errors occur, the Compiler extracts an error 
message from the diagnostic file on the system device [1,1] area 
FORCOM.DGN. If the file does not exist, an error code is printed 
without a message. Table 3-1 contains a listing showing error codes 
and corresponding messages. Thus, putting this file on the system 
device is optional. However, it is recommended that the file be on 
the system at least until the user has experience using the FORTRAN 
Compiler . 

The FORTRAN Library is supplied in two different versions: 
an EAE version which uses the Extended Ari thmetic Element { F.AF. model 
number KEll-A) for arithmetic. This version of the Library cannot 
be used on a non-EAE system. The non-EAE Library does not use the 
EAE and runs on any FORTRAN system, whether or not the EAE is present. 

The FORTRAN Library DECtape contains three other files: 

IOL01.OBJ, DEFIN.OBJ, and DVTB06.PAL. The use of these files is 
described in sections 2.1.4, 2.2.4, and 3.4. 

The FORTRAN Library can be kept on the system disk either in 
the user's area or the [1,1] area, DECtape, or paper tape, depend! ng 
upon timing and storage trade-offs determined by the user. 



CHAPTER 


Programming Notes and Cautions 

2 . 1 FORTRAN COMPILER NOTES AND CAUTIONS (V001B) 

2.1.1 Storage of FORTRAN Overlays and D iagnostic File 

The FORTRAN Compiler overlays FTN00.0.OVL through FTN006.OVL, as well 
as the diagnostic file FORCQM.DGN, can reside only on the system disk. 
The Compiler load module, FORTRN , can reside on any device. If space 
on the system disk is at a premium, FORCOM.DGN can. be deleted and the 
Compiler run without it; in which case any source diagnostics output 
an error code and not the text of the error (see Table 3-1} . 


2.1.2 SK Version Symbol Table 

Using the 8K version of the Compiler, the amount of space available 
for symbols is slightly less than 400 (decimal) words. A simple vari- 
able entry in the symbol table is 3 words long. A constant entry is 
8 words plus the size of the constant. An array entry is 10 words 
plus one word for each dimension. For example, a complex constant 
entry is 12 words long and a 3-dimensional array entry is 13 words 
long. On the average, in an 8K machine, the Compiler can handle 40-45 
entries in the table. 

2.1.3 8K Version Compiler I/O 

Because of buffer size constraints in the 8K Compiler, all input and 
output from the Compiler must be done to the disk. Thus the command 
string : 


#DF : AB C , DF : DEF <DF : XYZ 



executes, while: 

#DT,0 : ABC , DF : DE F< DF : XY Z 

does not. 

In an 8K machine, if any of the files specified in the Compiler output 
command string already exist, an F007 error is issued when the Compile 
attempts to delete the old files. 

2.1.4 DEFINE FILE Statement 

The DEFINE FILE statement does not work yet. An alternate way of ac- 
complishing the task is to use routine DEFIN as follows: 

CALL DEFIN (a,m,l,U,v) 

where a, m, 1, U and v are of the same form as in the DEFINE FILE 
statement (.see the FORTRAN manual, part I, page 5-9). When linking, 
link DEFIN. OBJ before searching the Library. (DEFIN. OBJ is on the 
FORTRAN Library tape, DE.C-1 1-SFFB-UC. ) 

2.1.5 DATA Statement 

In DATA statements, a constant of the form: 

.NOT. .TRUE, 
or 

.NOT . . FALSE 

will not be diagnosed properly. These are not acceptable constants 
to FORTRAN IV at any time. 

In DATA statements, using octal or hexadecimal constants to preset any 
type except integer causes Compiler errors 105 and 10/ to bo issued 
improperly - 



2.1.6 Illeqal Constants 


Illegal forms of constants, such as -3.D, are not yet detected as er- 
rors. They compile with a value of zero. 

L0GICAL*1 (byte mode) usages currently do not always compile correct 
code . 

COMPLEX constants and expressions currently do not compile correctly. 

X = 4HABCD where X is type REAL or DOUBLE does not compile correctly. 

2.1.7 FORMAT Statements 

FORMAT statements whose data lists are an exact multiple of 41 charac- 
ters (excluding non-significant blanks) generate an extraneous 
.ASCIItt 

directive within the PAL assembly which in turn causes a M Q" assembler 
error on the offending line in the source listing. This error does 
not affect the proper execution of a program. 

2.1.8 Compilation of Expressions 

— — . — £ ■ , — 

Expressions of the form: 

NOT . ±n 

where n is any number do not compile correctly. Diagnostic 33 is is- 
sued. 

2.1.9 Main Program Caution 

A main program having no executable statements will not compile cor- 
rectly. 



2.1*10 DIMENSION Statement Used with a TYPE Statement 

Forms similar to: 

DIMENSION RCijSn 
LOGICAL R 

cause bad arrays to be generated, whereas by placing the type statement 
ahead of the DIMENSION statement the arrays are formed correctly as 
follows : 

LOGICAL R 
DIMENSION RC10) 

The type processor does not currently check whether an item has been 
previously dimensioned. 

2.1.11 EXTERNAL Statement 

The EXTERNAL statement does not currently work. 

2.1.12 Monitor Stack Overflow 

Occasionally, (with the 8K Compiler only), a Monitor stack overflow 
error (F001, a fatal error) is issued after compiling several programs 
in sequence. The current solution is to reload the Monitor and the 
Compiler, and recompile the last program attempted at the time of the 
failure. Source errors during compilation will also cause this con- 
dition. 

2.1.13 CTRL/C Caution 


Typing 1C followed by BEGIN or RESTART while the Compiler is running 
does not work. The Compiler must be reloaded by usinq a RUN FORT RN 


command to the Monitor. 



2.1.14 Implied DO 


In READ and WRITE statements, any I/O list elements following an implied 
DO are handled incorrectly. The Compiler keeps an incorrect count of 
the number of elements being processed. No I/O list elements should 
follow an implied DO in this version of the Compiler. However, an im- 
plied IX) can be followed by another implied DO. 

Bad characters in implied DO loops cause a halt with a fatal error con- 
dition. For example, use of a period (.) instead of a comma (,) as 
follows : 

WRONG: (A (I) . 1=1 ,N) 

RIGHT: (A (. I ) ,1=1, N) 

Reload the Monitor. 

2.1.15 DATA Statements 

If the user is compi ling a program from cards, DATA statements are like- 
ly to cause a system failure if a DATA statement is followed by a con- 
tinuation card. DATA statements should not be used with continuation 
cards. Where data extends onto more than one card, use more than one 
DATA statement. 

2.1.16 EQUIVALENCE Statement 


A large number of equivalences can cause the Compiler to halt the 


system. 



2 - 2 FORTRAN Library Notes and Cautions 


2-2.1 Unacceptable Names 

A Linker error results if (1) any of the following names are used as 
subroutine or function name and (2) the OTS routine of the same name 
is linked to the program containing the reference. This restriction 
will be removed in the future. 


ABS01 

DABS 01 

IABS01 

PAUS01 

TANH01 

ADJ02 

DATN01 

IARG01 

PDMP01 

TRST01 

AIAG01 

D8LE01 

IDIM01 

POLH01 


AIAX01 

DDCI01 

IFIX01 

POPR03 


AINT01 

DDCO01 

INFR01 

PSHP01 

V011A 

ALOG01 

DEXP01 

INRR01 

PSHR06 


AMOD01 

DFIL01 

INT01 

PWDD01 


AT AN 01 

DIAX01 

IOBF01 

PWDI01 

WRIT01 


DICI01 

IOFI01 

PWII01 



DICO01 

IORD01 

PWRI01 


CA8S01 

DIM01 

IORI01 

PWRR01 


CEXP01 

DINT01 

IOUD01 


CLGG01 

DLCI01 

IOUI01 



CLSE01 

DLCO01 

ISET03 

READ01 


CNJG01 

DLOG01 

ISGN01 

REAL01 


CPLX01 

DMOD01 


RNDM02 


CSIN01 

DSGN01 


RNDU02 


CSQT01 

DSIN01 

MAX001 

FWEF0 



DSQT01 

MIX 001 



DVTB06 

MIX102 
MOD 01 

SERR01 



ENDO03 


SFIL01 



SRRC04 

OPEN01 

OTSV01 

SIN01 



EXIT02 

EXP01 

SNCO01 

SNGL01 

STOP02 




FDEV0 


SQRT01 



FIND01 
FLAT 01 


SVSP02 



2.2.2 ' END= 1 Feature 


Use of the ! END= 1 feature currently results in a Monitor error at RUN 
time. If it is desired Id use this feature, location $IOF+236 (octal) 
should be changed from 016004 to 016404. This will be fixed in the 


next version. 



2.2.3 SETERR Subroutine 


SETERR does not work correctly. 

2.2.4 I/O of Logical Elements 

There is an I/O problem with logical variables and logical array ele- 
ments. Use of either of these in an I/O list will result in an un- 
defined global reference at link time. This problem can be solved by- 
linking IOL01.OBJ to the main program before the FORTRAN Library 
(IOLOl.OBJ is on the FORTRAN Library DECtape, DEC-ll-SFFB-UC) . The 
problem does not exist for I/O of entire logical arrays. 

2.2.5 Complex Routines Caution 

In general, the complex routines are positioned incorrectly 1 . This will 
be corrected in the next release. If the user wishes to use these 
routines, he should search the Library' twice in order to force linking. 

2.2.6 Text of Error Messages 

Users of RK systems should not put FO ROOM. DON, the diagnostic file, on 
the RK disk. The Compiler prints the correct error code, but extracts 
the wrong error message from the diagnostic file. See Table 3-1 in 
Chapter 3 . 

The Object Time System is unable to read the error message file at 
present. As a result, the English text of RUN Time error messages is 
missing. Table 3-2 (in Chapter 3} contains a list of diagnostic codes 
and their corresponding English messages. 



Chapter 3 


Using the FORTRAN System 
3.1 FORTRAN PROGRAM EXECUTION 


Figure 3-1 shows the three discrete steps required to prepare a 
FORTRAN source program for execution: (1) compilation, (2) assembly 

and (3) linking. 


, j Libr ary! 

’Source"! ; /ass emblyV AL s^Ob j ect\ , — 1 /Executable \ 

Programh fcompile rli^' Lan guaq^/lAssemblerj'X^od ul^ /^LinkerpyLoad Modulp/ 

J ( V i (2) ( 3) 

- j i 

Figure 3-1 

Steps in the Preparation of an 
Executable FORTRAN Program. 


In the simplest form possible, the user could cause the compilation, 
assembly, and linking of a program with the commands shown in Figure 
3-2. Assembly listing and a load map can be obtained with slightly 
different commands {see the relevant DOS manuals) . Just as PAL-11R 
assumes .PAL extensions on input files, FORTRAN assumes . FTN extensions 


on input files. 


Compilation 


<>RU FORTRN 
FORTRAN V001B 
fPROG < PROG 


Assembly 

£RU PAL 

PALllR V005A 

#PROG < PROG 


Linking 

_$RU LINK 
LINK-11 V 00SA 
PASS1 

#PROG<PROG, FORLIB/L/E 


Compilation With 
Compilation Listing 

$RU FORTRN 
FORTRAN V001B 
T? ROG , LS T < P ROG 


Figure 3-2 

Example Interaction With FORTRAN System 




3.1.1 FORTRAN Compile Time Operation 

At compile time the FORTRAN program is transformed into an assembly 
language program. A compilation listing can be generated. Figure 3-3 
contains a compilation listing. This is useful for the following 
reasons : 

a. Diagnostic messages are imbedded in the FORTRAN source 
listing. If there are any compilation errors, an 
error count is printed on the teleprinter. 

b. All FORTRAN source statements are given sequence numbers. 
These numbers are referenced by any error messages 
printed -when the program is run. 

Table 3-1 contains a list of the FORTRAN Compiler error codes and 
their meaning. 

c decusi**— example of compilation listing 
0001 illicit 

fIMPLICITI 
ERROR 3 

ILLEGAL TYPE OR IMPLICIT STATEMENT, INTEGER IS ASSUMEO, 

0082 
0803 

0035 

0006 
0007 

0088 
0089 

Figure 3-3 


DIMENSION A f 58 ) 

INTEGER 3 
A £i 5 *2 
8«s3 

C C0 M MENT AMONG SOURCE LINES 

18 EORMATf 5 FORMAT*! 

A £2) sB+B-feStB* 

1 8*9+3 

CALL EXIT 
EnO 


Example of a Compilation Listing 



Table — 3-1 


,.er E 


FORCOM . DGH 


MSG MESSAGE 
NUM 


d REDUNDANT CONTINUATION MARK? IT IS IGNORED 

1 CONTIMUATTON M A»K I M RANGE 1 Tq 9j IT is IGNORED 

2 ILLEGAL STM?* NUMBER, NON-NUMERIC CHAP* IS COLS* 1-5 

3 ILLEGAL type OR implicit $.T*T£*FNT, INTEGER IS ASSUMED, 

4 NON-DECLARATIVE STATEMENT JM BLOCK DATA. 

5 SYMBOL TABLE ElJLl 

6 STATEMENT to J long, REMAINDER DISCARDED 

7 MISSING END -STATEMENT, END ASSUMED 



8 ILLEGAL UNAPT OPERATOR, ONLY *, OR B MOT ALLOWED. 

9 COMPILER ERROR * IMPOSSIBLE OCCURENCE 

13 MISSING LEFT PARENTHESIS I N FUNCTION CALL 

11 MISSING RIGHT PARENTHESIS JM FUNCTION CALL 

12 ILLEGAL CHARACTcRCS) TERMINATING STATEMENT 


13 ILLEGAL format In A NUMERIC CONSTANT 

14 INSUFFICIENT INTERNAL COMPILER SPACE TO EVALUATE THIS CONSTANT 

is intfgfr constant too large* replaced with largfst pos. value. 

16 ILLEGAL SYNTAX IN LIST ITEM. 

17 ILLEGAL list ITFM TERMINATOR 

18 WARNING— LOGICAL*! IS USED IN an EXPRESSION 

19 TOQ MANY SUBSCRIPTS IN AN EXPRESSION 
23 MISSING ,! 3" IN SUBSCRIPT EXPRESSION. 

21 UNRECOGNIZED S?A?FMFNT 


22 ADJUSTABLE ARRAY name QR INDEX IS NOT A SUBPROGRAM PARAMETER 

23 L 


* * bp f *r* cr k* ti! fttyi 


24 ARRAY DIMENSIONS CONFLICT WITH THOSE IN AN FARLIER STATEMENT 

25 MISMATCHED PARENTHESIS. 

26 NON-ARRAY REFERENCE TO ARRAY ITEM. 

27 CANNOT ASSIGN TO A CONSTANT 


28 CANNOT ASSIGN TO A FUNCTION 

29 ILLEGAL CHARACTER TERMINATING A 3TmT. OP POSSIBLE BAD OPERATOR 

30 SUBSCRIPT ON NON-ARRAY VARIABLE 


31 VARIABLE name must be 6 CHARACTERS or less. 

32 ILLEGAL SUBSCRIPT IN AN ARRAY ASSIGNMENT 

33 ILLEGAL OPERAND 

34 TOO MANY SUBSCRIPTS OR NO CLOSING PARPN Fdr SUBSCRIPT, 

35 NO ^UNCTION ARGUMFNTS PRESENT, FUNCTION IGNORED. 

36 UNRECOGNIZABLE PAR A m £TER IN FUNCTION CALL. 

37 FUNCTION CALL HISSING A 

38 ILLEGAL ROUTINE NAME, 

39 Misspir, END 3 Ta?E u ENT, End TS ASSUMED. 

43 SYSTEM FRRQR — _ NO DIAGNOSTIC MESSAGE H4S THIS NUMBER 
41 DO LIST OVERFLOW, - NO MORE T Hi M t’fcj NESTED DO'S APE ALLOWED. 
*2 ILLEGAL SYNTAX IN CPHHON/FGUiVAl.tNCF 
43 TABLE OVERFLOW In COMMQN/FGU I V At £NcF 


44 DUMMY VARIABLE U S f D IN COMMON 

45 variable already in common, cannot rf re-defined, 

46 ILLEGAL DO statement SYNTAX 

47 DO CONTROL VARIABlt NOT SIMPLE INTEGER VARIABLE, 

48 bad do parameter 




51 ILLEGAL Q» MISSING STATEMENT LABEL NUMBER 
32 ILLEGAL SYNTAX IN GOTO /ASSIGN STATEMENT 

53 ILLEGAL DO ST*TEmFN7 NESTING 

54 ROUTINE NAME CANNOT 8£ A NU M E*IC CONSTANT 

55 SUBROUTINE OR FUNCTION STATEMENT UnT PIRST stajfmFNT nF ROUTINE 

56 ILLEGAL PARAMETER IN SUBROUTINE 0* FUNCTION LIST 

57 TOO MANY PARAMETERS IN ROUTINE LIST 
50 ILLEGAL ARGUMENT list in EXTERNAL* 

59 MISMATCHED PARENTHESIS in FORMAT 

6s) missing comma or 5 IN COMMON/EQUI VALENCE. 

61 MISSING ( IN COMMON/EQUIVALENCE 

62 DUMMY ARGUMENT USED IN EQUIVALENCE 

63 INCONSISTENT equivalence 

64 Twq OR mqRE COMMON ITEMS ARF EQUIVALE M CED 

65 I/C UNIT IS NOT SIMPLE INTEGER VARIABLE OR CONSTANT, 

66 ARRAY OR FUNCTION* NAME is NOT ALLIED AS A UNIT in t/0 STMT 

67 ILLEGAL SYNTAX IN I/O STATEMENT® 

68 MISSING ARGUMENT Tn FIND, 

69 ILLEGAL RECORD DESIGNATOR IN RANDOM ACCFSS READ/WP?T£. 

70 MISSING RIGHT PARENTHESIS IN I/O CALL 

71 illegal FORM OF END* AND/OR ERPs 

72 ILLEGAL FORM FOR LIST ITEM IN I/O STATEMENT, 

73 ILLEGAL SYNTAX OF REWIND, BACKSPACE OR ENDFTLE 

74 NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE 

75 ILLEGAL H CONSTANT IN FORMAT 

76 H CONSTANT COUNT TOO RIG, 

77 SYNTAX ERROR IN IMPLICIT STATEMENT 

78 HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE, 

79 .NOT, MAY BE USED AS a UNARY OPERATOR ONLY 

80 EXPONENT May NQT BE LOGICAL*!, LOGICAL*? DR COMPLEX 

81 XNTFGFR**R£AL OR IN?EG£R**COM®L£X NOT ALLOWFD, 

82 COMPLEX**REAL qr complex**qpu*le NOT ALLOWED 

83 IMPROPER LABEL SYNTAX IN If STATEMENT 

84 ANYTHING **CQMPL£X NOT ALLOWED 

85 MISSING COMMA IN READ OR PRINT 

96 INCORRECT SYNTAX IN DEFXNFFILE STATEMENT 

87 COMPLEX ARITHMETIC nqt YE? SUPPORTED , 

88 ARRAY IS TOO LARGE » 

39 ILLFGAL ROUTINE NAME 

92 illegal do specification IN i/o statement 

91 ILLEGAL LIST in implied do 

92 ILLEGAL FORMAT SPECIFICATION TN i/o STATEMENT 

93 SYNTAX ERROR IN EXPRESSION OF ASF 

94 MISSING, OR ) IN ASF 

95 MISPLACED * IN A $F 

96 ILLEGAL OR MISSING DUMMY ARGUMENT IN ASP 

97 SUBSCRIPTS OUT OF BOUNDS TN DATA OR EQUIVALENCE, 

98 ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCF, 

99 OPENING "/« MISSING FROM DATA GROUP, 

130 WARNING » UNEQUAL NUMBER HF VARIABLES AMP CONSTANTS, 

101 data not allowed in common except in !! blockdata ,! , 

102 SUBSCRIPTS ON UN DIMENSIONED ELEMENT i» DATA, 

103 ADJUSTABLE ARRAY NOT ALLOWED In DATA, 

104 PRESETTING NAMED COMMON ALLOWED ONLY IN "BLHCKD AT A " , 

103 ILLEGAL FORM FOR CONSTANT In DATA. 

106 ILLEGAL REPEAT COUNT, 

107 MISMATCHED DATA TYPF8* 

108 DATA MUST FOLLOW ALL OTHER DECLARATIVES, 

109 SYSTEM ERROR — NO DIAGNOSTIC MESSAGE HAS THIS NUMBER 

110 SYSTEM F&ROR -« NO DIAGNOSTIC MESSAGE. HAS T-IS MJYBFR 



m SYSTEM ERROR 

112 SYSTEM ERROR 

113 SYSTEM ERROR 

114 SYSTEM ERROR 

ns system error 
lie 8YSTE U ERROR 

117 SYSTEM ERROR 

118 SYSTEM ERROR 

119 SYSTEM ERROR 

120 SYSTEM ERROR 

121 SYSTEM ERROR 

122 SYSTEM ERROR 

123 SYSTEM ERROR 

124 SYSTEM ERROR 

125 SYSTEM ERROR 

126 SYSTEM ERROR 

127 SYSTEM ERROR 

128 SYSTEM ERROR 

129 SYSTEM ERROR 

130 SYSTEM ERROR 
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132 SYSTEM ERROR 

133 SYSTEM ERROR 
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140 SYSTEM FRRQR 
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189 SYSTEM ERROR 

170 SYSTEM ERROR 
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secru er 


lumber s, the outp ut 


in Figure 3-4 shows a compilation listing of a program which inten - 

tionally causes an overflow. At run time the FORTRAN Object Time 

System generates a run time diagnostic indicating that error number 

14 occurred. Error 14 indicates that an integer multiplication 

15 Is 

resulted in a product >2 -1. or <-2 ~ . The diagnostic appears 3 times 

because class 3 errors have a maximum occurrence count of three 
before the program is terminated {this is explained further in the 
next section. 

Figure 3-4 is an example of what is known as the trace-back feature 
in the FORTRAN system. At run time, diagnostics are printed by 
OTS with a trace of the flow of control within the user-written 
code. Following the error code are printed the headings NAME and 
SEQ below which are the names of the routines through which the 
call is being traced and the sequence number of the specific line 
in which the error occurred (or from which that subroutine was 
called) . The first name and sequence number at the top of the list 
is the error location, subsequent names and numbers refer to the 
path through which the program reached that point. 

The example in Figure 3-4 shows the same error message being printed 
three times, indicating that after the third occurrence of the 
error, the program was terminated. 


3.1.2 FORTRAN Assembly Time Operation 

At assembly time the assembly language program is transformed into 
an object module. The user can generate an optional assembly listing 
and symbol table listing through the Assembler. 

The use of the Assembler for processing FORTRAN programs does not 
differ in any way from the normal use of the Assembler. 



1000 


0001 

0002 

0003 

0004 

0005 


10 


J=2 
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continue - 

END 


') 

i 

\ 

/ 

l 

J 


Compilation Listing 


$R0 DECS 16 . LDA 


FORT003014 | 

NAME SEQ 1 

MAIN. 00003 | 

FORT003014 [ 

NAME SEQ > Run Time Diagnostic 

MAIN. 00003 i 

FORT003014 j 

NAME SEQ j 

MAIN . 00003 \ 

1351 000001 

$ 


Figure 3-4 

Example of Run Time Diagnostic 


3.1.3 Link Time Operation 

At linking time, the object module is linked with any subroutines or 
functions that the user has prepared, and the FORTRAN Library is 
searched for any necessary arithmetic functions, I/O routines, error 
handling routines, or math routines. A load map can be obtained whicl 
shows where in core the various programs have been placed, fneir 
lengths, entry points, and use cf COMMON storage. 

The FORTRAN Library is composed of the following: 

a. Math routines, including all standard FORTRAN func- 
tions plus other arithmetic routines needed to do 
arithmetic operations (e.g., floating point); 

b. Miscellaneous utility routines (PDUMP, SETERR, SETFIL) ; 

c. I/O Routines, which handle the various types of FORTRAN 
I/O; 



d. Error handlinc routines,, which handle arithmetic errors, 
I/O errors, and system errors; 

e. Miscellaneous (Polish) routines required by the compiled 

code: $SBS, $DOEND, $POP. 

The Library was designed as a large number of small pieces so that 
non-necessary routines could be omitted at link time. Thus, if the 
user does only sequential formatted I/O, none of the random access 
routines are linked to his program. 

3.1.4 FORTRAN Library Usage 

With the DOS Librarian the user can construct his own libraries of 
routines which he then searches at link time (the user is constrained 
to search all of his own libraries before searching the FORTRAN System 

Library) . 

Users should not add subroutines or functions to the DEC-supplied 
FORTRAN Library. Instead, users should create their own libraries, us- 
ing the Librarian. Thus, if MATLIB is a user library containing matrix 
manipulation routines, and the user writes a program (PROG) which uses 
routines from MATLIB, a command string to the Linker might be: 

#PROG,LP :<PROG,MATLIB/L , FORLIB/L/E 

Do not add routines to FORLIB or EAELIB. Many routines in these lib- 
raries are position dependent and the insertion of new routines could 
result in undefined global references when linking FORTRAN programs. 
Similarly, the deletion or rearrangement of routines in FORLIB and 
EAELIB is likely to cause problems unless the user is familiar with the 
ordering dependencies of the FORTRAN Library. 

3.1.5 FORTRAN Run Time Operation 

FORTRAN run time errors are grouped within six error classes according 
to the nature of the error, as follows: 



to do I/O, subroutine directly or indirectly refer- 


CLASS 1 

CLASS 2 
CLASS 3 
CLASS 4 


ences itself. 

Includes I/O errors with respect to parity, checksum, 
files or devices. 

Format statement errors. 

Includes arithmetic errors and overflow’ conditions. 
Includes argument errors in function calls: SQRT 
called w r ith ARG<0 , ALOG called with ARG < 0 . 


CLASS 5 Includes errors with respect to exponential 
FORMAT numbers . 

CLASS 6 Conversion or undefined error. 

Each class of errors has a maximum occurrence count (usually equal to 
the class number). If the maximum occurrence count is achieved for any 
class during a run, the job exits. Normally, an error message is logged 
on the teleprinter whenever any error occurs. 


The list of 
Through the 


run time error codes and messages is found in Table 3-2. 
use of the SETERR subroutine, ’which is documented in the 


FORTRAN manual, the user can modify the maximum error count for any 
error class. The count for a class can be set to any positive, integer 
value, or the user can specify: 

0 log error and ignore, continue execution 
-1 ignore error, do not log, continue execution 
-2 exit to Monitor, do not log, continue execution 
-3 immediate abort, results in fatal Monitor error F030 



Table 3-2 


Run Time Diagnos ti cs 

The diagnostics are printed in the form 
PORT 0 0 X YYY 

where X is the class of the error and YYY is the particular error code. 


FORT** * & tup a 

FnRT0'*i’P f r ? 
FORT*} •tfr.PPX 


I *>l V A L l n FSPCP CALL 
NO SPACE Th no I/O 

SijRRhU? I w£ DIRECTLY OR INDIRECTLY REFERENCES ITSELF 
SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 


Ffl&TB-Mfcen 

pnpT3Yic»^i 
F«RT0*l£*02 
FnpT0^i( , t''3 
FORT0O}f*p4 
F^RT0OlPti5 
FnpTWC'lOPS 
FORTPPJ 007 
pn RT0r*i^0« 
FnftTP'^iPpQ 
FDRTg^iuii? 
F ORT0 n I 0 1 1 
FHRT0^1!?il2 
FPRT0^iDi3 


VALUE HUT OF BOUNDS (COMPUTED oR ASSIGNED GO TO) 
DEVICE PARITY 

CHECKSUM / PARITY FRPOR OR END OF DATA ERROR (RANDOM) 
UNQXAGNOSABLE I /O ERROR 
EOF / EQw 

UNABLE to allocate CONTXSIPUS file 
DEFINE file NOT done (RANDOM) 

define ftle done C m ot random) 

INVALID PROTECT CODE 

FILE DDES NOT EXIST / OR IS ALREADY OPEN 
UNABLE to open 

COMPATIBILITY ERROR 

INVALID device number 

INVALID RECORD NUMBER (RANDOM) 


FDRT0*23fc!tf 

FORT0M2P01 

FORT0D2Pt';2 

FftRT?H2ne3 


FORMAT HAS IT£MS AND NO CONVERSION SPECS 

PARENTHESES NESTING too oefp in format 

FORMAT SYNTAX FRPOP 

P£FE»ENCF OUTSIDE OF RECORD BOUNDARIES 


FDRT0P3?eP 

FORT0^3^?i 

FORTBD300? 

FDRT0B3P£3 

FDRT0a3004 

FnRT0^3DP5 
F'lRT 0^3^01*; 

FnfiTv? 3 flir 7 
FnRT0B3Dp« 
FHRT0 ’3P£ D 
FART0^3P ID 
F ART 0^301 t 


SYSTEM ERROR NO DIAGNOSTIC 

jadd exponent overflow 

SADR EXPONENT OVERFLOW 
$DVD DIVIDE CHECK 
SOVD EXPONTENT OVERFLOW 
SDVI DIVIDE BY 0 
«DVR EXPONENT OVERFLOW 
SCSVC DIVIDE CHECK 
SDVR DIVIDE BY H 
smlc exponent overflow 

S-fLD EXPONENT OVERFLOW 
«NFG exponent Overflow 


MESSAGE ASSIGNED 



raox e — j- , 


Run Time Diagnostics (Coni 1 ct.) 


FORT0*3?n 
FORT 2^301^ 
FnRT3^3^l5 
FORT^OiO 

FnBT033iM7 

FORT0O3<*i8 

FORT0*3Pl Q 

FORT0M3 ff 2P 

FnRT0^3P2i 

FORT0O3722 

FORT.«03*23 


SMLR EXPONENT OVERFLOW 

SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 

*«4LI 2** 15*1 < PRODUCT OR < -2**15 

SPWII RASE s 0 # EXPONENT <»3 

$PWQT RASE ■ 0 t EXPONENT <• d 

SPWOO PASE s 0 , EXPONENT < 0 

SPWQO RASE < 0 , EXPONENT «> 0 

SPWRR BASE O 2 , EXPONENT «> 0 

SPWRR RASE < 0 , EXPONENT <*J» 0 

$ P WR | RASE a 0 f EXPONENT <* 0 

SRI 2**16-! « INTEGER 0» * -2**15 

SOP EXPONENT OVERFLOW 


FDRT004P0tf 
FORT0^4P01 
FORT0O4002 
F f 'RT0S4PP3 
FORT0^4004 
FrjRTP«4PP5 
FORT004O06 
FORT0O4P07 
FORT0P4P08 
FOPT0.*4O0O 
FORT 0C54J2 i 0 
F0RTg fl 4P 1 1 
FORTPO40 1 2 
FORT0P4«i3 

FORT0O4OJ4 

FORT0^4O15 


SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 
SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 
DEXP USER EXPONENT > 87, 

DLOG ARGUMENT < « 0 
DSORT ARGUMENT < 0 
EXP USER EXPORT > 87, 

SYSTEM ERROR NO DIAGNOSTIC ASSIGNED 
IASS APSCX) > 2**15 - 1 
IDIM RFSULT > 2**15 - l OR < « 2**15 
TSTGN RESULT > 2**15 - 1 

ALOG X < e 0 

SQPT X < 0 

SNSL EXPONENT OVERFLOW ON ROUND 
RANQU WRONG NIJM0FR OF ARGUMENTS 
POUMP WRONG NUMBER OF ARGUMENTS 
CS3RT UNDERFLOW 


Fort 8^5P0O 

FORT0S*6001 

FORT0O5O02 

F0RTB350e3 

FDRT0^5O04 

FORT0O5O05 

FORT005O08 

FORT035^P7 

FnRT0«SP08 

FORT0ffl5O0<3 


SYSTEM ERROR NO DIAGNOSTIC ASSIGNED 

SADO EXPONENT UNDERFLOW 

SADR EXPONENT UNDERFLOW 

SO XR EXPONENT UNDERFLOW 

DEXP USER EXPONENT < -88.7 

EXP USER EXPONENT < -88 ,7 

SMLD EXPONTENT UNDERFLOW 

SMLR EXPONTENT UNDERFLOW 

SO VO EXPONTENT UNDERFLOW 

SYSTEM ERROR NO DIAGNOSTIC ASSIGNED 


FORT0DPO0O CONVERSION ERROR 

FORT036001 vSVSTEM ERROR NO DIAGNOSTIC ASSIGNED 



3.2 I/O CONSIDERATIONS 


output statement. Since the disk is a directory structured device, 
FORTRAN OTS invents a filename for the data being written. The file- 
name is of the form: FOR00n.DAT where n is the logical unit number 
used in FORTRAN READ or WRITE statements. 

It is recognized that the user would like more control over the actual 
name of the file and the ability to control such parameters as the pro- 
tection of the file and its user identification code. Two levels of 
control are available: logical assignments and the SETFIL subroutine. 

The user can perform DOS logical assignments before running his linked 
program. If the user had a program doing a WRITE on unit 1, and 
wished the file to have the name SPEC, he could type: 

$ ASSIGN DF : SPEC, 1 

and the WRITE statements referencing unit 1 would all write onto the 
file named SPEC on the disk. Such as ASSIGN can also be used to force 
the FORTRAN program to READ from an existing file with a name other 
than FOR0 j2fn.DAT. 

Note also that: 

$ ASSIGN LP : , 1 

would cause the output to go to the line printer rather than the disk. 

Where the user wishes to build such assignments into his program perma- 
nently a FORTRAN callable subroutine, SETFIL is available which al- 
lows the user to build the device name, filename, extension, protec- 
tion, and UIC (user identification code) specifications into his pro- 
gram. See Figure 3-5 for a description of SETFIL. This dispenses with 
the need for operator intervention via use of the ASSIGN command at 
run time. Of course, a file specification setup with a call to SETFIL 
can be overridden with an ASSIGN command, where desired. 



FORTRAN calls to SETFIL are formatted as follows: 

CALL SETFIL ( II , Fl , 1 2 , F2 , 1 3 , 1 4 , 1 5 , 16 , 17 , 18 ) 

where : 

11 = logical device number {integer constant) 

Fl = file name and extension (ASCII) 

12 - error value variable (integer) , is set to -1 if 16/1 or 2 

or if 16=1 and 17 and IS are not specified, 

F2 = physical device name (ASCII) 

13 = unit number of physical device , if any (integer) 

14 = UIC (integer constant) 

15 = protection code (integer constant) , 15 must be the decimal 

equivalent of the desired octal code (if 15=64, the pro- 
tection code is 200) . 

16 = allocate file value (integer constant) , 

if 16=2 a contiguous file is allocated for random I/O, 
if I6=i a contiguous file is allocated for unformatted I/O. 

17 = logical record length in words (integer constant) , required 

if 16=1, otherwise 17 is ignored. 

18 = number of records to allocate (integer constant) , required 

if 16=1, otherwise 18 is ignored. 

The FORTRAN OTS allocates a contiguous file only where the user 
has specifically requested one through SETFIL (16 parameter) . 


Figure 3-5 
SETFIL Subroutine 



3,3 DEBUGGING FORTRAN PROGRAMS 


The use of traditional FORTRAN debugging techniques such as PDUMP are 
recommended for development of FORTRAN applications (see Appendix C 
of the FORTRAN Manual) . 

System error reporting and traceback information is of significant 
value in debugging. 

It requires considerable experience to successfully use ODT with a 
FORTRAN program. ODT was not intended to handle the problems of 
FORTRAN debugging, and it is especially out of its element -when trying 
to debug threaded code. 

Remember that the "threaded code" generated by the Compiler is a se- 
quence of addresses, rather than machine instructions. ODT breakpoints 
can be placed ONLY on machine instructions. Thus the user is con- 
strained to use breakpoints only in places where the code leaves Polish 
Mode*, e.a., a subroutine or function call; alternatively, breakpoints 
can be placed in the Polish routines themselves. 

There is one significant inconvenience associated with putting break- 
points in Polish routines. Polish routines are usually called from 
several places in a program and when the breakpoint in a Polish routine 
is encountered, the user must look at R4 to find the address from which 
the routine was called. 

3.4 FORTRAN Device. Table 

DVTBJ36.PAL is the source file containing the FORTRAN Device Table. 

In order to add a device to the table: 

a. Enter the address of the device entry in the device 
table entry vector (see the listing in Appendix A of 
this document) . 



in the entry vector (number of devices available to 
FORTRAN) . 

c. Insert the new entry in the table. 

To delete a device from the table; 

a. Delete the address of the device entry in the device 
table entry vector. 

b. Set the word at $DEVTB to reflect the number of 
entries in the entry vector. 

c. Delete the entry from the table. 

The default physical device for a table entry can be chanqed by modify 
ing the second word of the entry. 

The default filename and extension for a table entry can be cianaed 
by modifying words four through six of the table entry. 

Random access files are contiguous files. They can be allocated by 
OTS through SETFIL or through PIP. Contiguous files are described in 
the DOS manual (section 2.7). 

3 . 5 FORTRAN ERRORS DETECTED ONLY AT ASSEMBLY TI ME 

Missing formats or statement numbers are detected at assembly time. A 
format number starts with a "$" and a statement number starts with a 
* . " , so it is easy to recognize which form is missing by looking at 
the number (in the PAL listing) - A "U" diagnostic is issued in either 
case. 

Multiple statement and/or format numbers will cause a "D" error mes- 
sage to be placed at the offending line(s) and an " M" error message to 
be placed on lines referencina them. 



Chapter 4 


Corrections to the FORTRAN Manual 


The following changes should be made to the FORTRAN IV Manual (DEC-11- 
KFDA-D) : 


Page no. Corrections 

V 

I ^ IV Add: 4.7 END Statement 4-8 

Part I 

2-4 Insert: 

2.1.8 Hexadecimal Constants 

A hexadecimal constant is a string of from one to six 
hexadecimal digits. The hexadecimal digits are as fol- 
lows : 

Decimal 

0 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 


For example, ±00 = 2 56^. 

The use of hexadecimal constants is preceded by the 
letter H. For example: 

H24E 

H8A5.B2 

A hexadecimal constant is valid only in the context of 
the statements: DATA, PAUSE, and STOP. The maximum 
value which can be expressed as a hexadecimal constant 
is FFFF. 


Hex adecimal 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 
A 
B 
C 

r\ 

E 

F 

10 



Corrections 


2-^6 In the list of operator precedence, the first operator 

should be unary minus, 

4-8 Add: 

4.7 END Statement 

The END statement is of the form: 

END 

This statement is the necessary final statement, in all 
main and subprograms. Program compilation is terminated 
when the END statement is encountered. 

An END statement forces a CALL EXIT operation in a main 
program: 

An END statement in a function or subroutine forces a 
return to the calling procram if a RETURN statement is 
not present. 

If an input file is exhausted before an END statement 
is encountered, a diaanostic is printed and an END 
statement forced. 

6-1 Disregard BYTE (LOGICAL*!) type declaration for this 

6-7 version of the FORTRAN Compiler. 

6-5 Description of DATA statement should look as follows: 

DATA var list ^/values list^/,var list^/value .list 
remove parentheses from var list in description. 

6-6 9th line from bottom of page should read: 

DATA A ( I ) , A (2) , A ( 3 ) /3 * 0 . / 


6- 8 Insert: 

6 . 5 Ordering of Specification Statements 

Generally speaking, the specification statements are all 
grouped together at the beginning of a program accord- 
ing to the following rules: 

a. A DATA statement, where used, is the last of the 
specification statements. It must follow state- 
ments which might affect it, such as EQUIVALENCE, 
TYPE, and DIMENSION. 

b. Any arithmetic statement functions to be defined 

in a program must occur following any and ail speci- 
fication statements. 

7- 3 Add to end of Section 7. 1 . 12 : 

An END statement must be the last statement of every 
function subprogram and causes a return to the calling 
program where a RETURN statement is not present. 



7-3 


Add to end of Section 7.2; 


An END statement must be the last statement of every 
subroutine and causes a return to the calling program 
if no RETURN statement is present. 

Part II 


Device 

Assignments are as follows: 

FORTRAN 

DEVICE 

DOS File 
# Name 

Actual Device 
Mnemonic 

1 

FOR001.DAT 

DT0: 

2 

FOR002 : DAT 

DF0: 

3 

FQR003.DAT 

DF0: 

4 

FOR00 4 . DAT 

PR: 

5 

FOR005.DAT 

LP: 

6 

FOR006.DAT 

K3 : 

7 

FOR007.DAT 

DF0: 

8 

FOR008.DAT 

DF0 ; 

Add to 

end of statement 

summary : 

TYPE 

TYPE V 1# V 2 , V 3 

, . . .where the variables 
V n are assigned to be 
part of the indicated 
type . 

END 

END 

Cease program compila- 


tion; equivalent to CALL 
EXIT in main program or 
RETURN in subprograms. 


C-3 Delete RAN. Random Number function, from the function 

summary. The proper name for the random number gener- 
ator is RANDU and it 3 s a subroutine, belonging in the 
summary on page C-5. 



CHAPTER 5 


FORTRAN LIBRARY FUNCTIONS 


This chapter contains a brief outline of the OTS library of FORTRAN 
functions which involve approximations. "Floating point" means single 
precision, 2-word, floating point format with a 24-bit fraction and an 
8-bit binary exponent. "Double precision" means 4-word, floating point 
format with a 56-bit fraction and an 8-bit binary exponent. The values 
of the coefficients used in the various approximations may be found at 
the cited parts of the following references ; 

(1) Computer Approximations , by J. F. Hart et al, 

John Wiley & Sons, 1968. 

(2} Approximation for Digital Computers, by C. Hastings 
et al, Princeton University Press, 1955. 

(3) PDP-11 Paper Tape Software Programming Handbook, 
DEC-ll-GGPB-D, Digital Equipment Corporation. 


All OTS FORTRAN functions are called using the standard sequence: 


JSR R5 , NAME 

BR RTN 

, WORD #ARG1 , . . . , #ARGn 

RTN : 

The result is returned in R0-R1 for floating point and R0-R3 for 
a double precision function. Some FORTRAN functions call other single 
argument functions in the course of their computation. In order for 
them to be reentrant, these calls are made via the routine $FCALL. 

MOV ARGUMENT ADDRESS, R5 

MOV #FUN3TI0N NAME, R4 
JSR PC , $FCALL 

$FCALL calls the FORTRAN function whose address is in R4 with the argu- 
ment whose address is in R5. Control is returned to the instruction 
following the JSR with the function result in RJ3-R1 for floating point 
or R.0-R3 for double precision. 



5.1 ALOG(X) , Floating Point Natural Logarithm 


If X_<0 call error 

Let X=y* 2 a where l/2<y<i 

Let Q= (y /2 - 1} / (y /~2 + 1) 

Then ln(X) = a • In (2) + In (y) 3 2 j_ 

ALOG(X) = a • In (2) = In (/“2 ) + QE c,.Q 

0 * 

where the c. are drawn from Hart #2662. The relative error 
-9* 9 1 

is _<L0 

5.2 ALOG10 (X) , Floating Point Common Logarithm 


Computed as log^(e) ”ALOG(X) . 

5.3 ATAN(X), Floating Point Arctangent 

If X<0 , AT AN (X) = -ATAN(-X) 

If |X j>l, ATANC| X| ) = tt/2 - ATAN (1/j X] ) 

If |X j > tan tt/12, ATAN(X) = m/6 + ATAN ( (X /~3 - 1)/(X + <3) ) 

a o i 

For j Xi <tan rr/12 , ATAN(X) = XjCiX" 

where the c. are drawn from Hart #4941. The relative error 

i 5 1 

is <10 


5 . 4 ATAN 2 ( X , Y } 


Argument Floating Point Arctangent 


25 

If Y = 0, or X./Y >2 , AT AN 2 (X,Y) - it/2 (sign X). 

If Y > 0 , and X/Y<2 25 , ATAN 2 ( X , Y ) = ATAN (X/Y) 

If Y <0, and X/Y<2 2d , ATAN2(X f Y) = r*signX + ATAN (X/Y) 


5.5 DATAN(X), Double Precision Arctangent 


The analysis is the same as in that for ATAN ( X) except that 

the polynomial approximant is of degree 8. The coefficients 

■“ 16*8 

are drawn fromlfert #4945. The relative error is <10 

5.6 DATAN2(X,Y), Two Argument Double Precision Arctangent 

The rules for DAT AN 2 are the same as those for ATAN2 except 
that the DATAN is used in all computations. 



5.7 DLOG(X) , Double Precision Natural Logarithm 

The analysis for DLOG is the same as that for ALOG except 

2 

that the polynomial in Q is of degree 6. The c. are drawn 

— 1 6 • 5 1 

from Hart #2665. The relative error is _<10 * . 

5.8 DLOG10(X), Double Precision Common Logarithm 
Computed as log^^ (e) * DLOG (X) . 

5.9 DSQRT(X), Double Precision Square Root 


If X <0 call error 
Let X = A*2 B where 1/2 _< A <L 
Let Y^ = 2 B/ 2 * (1/2 + A/2) if B is even 

or 

Y^ = 2 (B+1) / 2 • (1/4 -f A/2) if B is odd / 

a transformation requiring cnly two instructions. Starting 
with y ^ , four Newton- Raphson iterations are performed. 



Let y = Integer (4 ‘fraction (X/ 27 T) ) 

Let V = Fraction (4* fraction ( X/ 2 v) ) 

Then DSIN(X) = P(Vtt/ 2) if y=0 

= P ( (1-V) tt/ 2) if y=l 
= P (~Vtt/2) if y=2 
= P (CV-1) it/ 2} if y=3 

8 2i 

where sin(V7T/2) * P(Vtt/ 2) = VEc.V for -1 <V <1 

J3 1 

The c. are drawn from Kart #3345. The relative error is 
J1J0-18 *6 

5.11 DCOS(X), Double Precision Cosine 


Computed as DSIN(X + tt/2). 



5.12 DEXP{X), Double Precision Exponential 


If X > 87 call overflow 
If j X 1 < 2~ 6 ^ ^ DEXP(X) = 1 
If X < -88.7, DEXP(X) = 0 
Let y = Integer (X «log 2 {e)) 

Let V = 16 * Fraction (X * log 2 (e}) 

Let w = 1/16 • Fraction (V) 

DEXP = 2 Y - 2 W • 2 Inte ^ er (V)/16 where 0 _< w <1/16. 
Powers of 2 are obtained from a table. 


w __ P (w 2 )+wQ (w 2 ) 
P (w 2 ) -wQ (w 2 ) 


where P and Q are first 


degree polynomials in w' 


The coefficients of P and Q are drawn from Hart #1121 


The relative error is <10 


-16 * 4 


5.13 EXP ( X) , Floating Point Exponential 


If X > 87, call overflow 
If j X l < 2~ 28 , EXP (X) = 1, 

If X < -88.7, EXP (X) = 0 . 

Let y - Integer (X * log 2 (e) ) 

Let V = Fraction (X • log 2 (e) ) 

Let w = 1/2 In (2) • V where jwl_< ln(2)/2 

Then EXP(X) = 2 Y • (e w ) 2 
where e w ~ 1 + 2 • w 


The c^ are drawn from DEC-ll-GGPB-D , page 7-23. The relative 

ln( -10 

error is £ 10 

5.14 SIN(X), Floating Point Sine 

The analysis is the same as that for DSIN(X). The polynomial 

approximant used is of degree 4 and the coefficients are drawn 

"* 8 

from Hastings, sheet 16. The relative error is £ 2 • 10 



5.15 COS (X) , Floating P oint Cosine 

Computed as 5IN(X + tt/2) . 

5.16 SQHT (X) , Floating Point Square Root 

The analysis is the same as that for DSQRT(X) except that 
only three iterations are performed. The relative error 

V , « f '~8 

is j< IjS 

5.17 TANK (X) , Floating Point Hyperbolic Tangent 

If [Xj >_ 16, TANH (X) = 1 - sign (X) 
otherwise 

let y = EXP (2 • X) 


tanh (x) = (y-l)/(y+l). 



Appendix A - 

FORTRAN Device Table Listing 


.TITLE OVTB06 
*GLOBl fOtVTB 
• C8ECT 

; 

| SDEvTB V& 0 SA 

1 

) COPYRIGHT 1971, DIGITAL EQUIPMENT CORPORATION, MAYNARDtMASS 

I THESE ARE T hr fortran DEVICE TABLE ENTRIES 
jtfITH The OEVICE table header ANu Entry vector 

; 

,*0«0 DEVIRR MOON of entry for err MSS FIl£ 

SDEVTB* .wORU 8, p-NUMflER OF ENTRIES IN ENTRY VECTOR 

.*QWD 6, IDEVICE NUM OF ERROR LOGGING DEVICE 

1 

j the device table Entry vector 

t 


• WORD 

OE V l 

f ADDS 

OF 

DEVICE 

I 

Entry 

.HQRQ 

DF. V 2 

I AQf)H 

OF 

DEVICE 

2 

ENTRY 

,HORO 

DEV3 

MOD* 

OF 

DEVICE 

3 

ENTRY 

.WORD 

Q£ V 4 

MOOR 

OF 

DEVICE 

4 

ENTRY 

.wORQ 

DEVS 

? ADD* 

QF 

DEVICE 

5 

ENTRY 

• iaORO 

DEVa 

MOD* 

OF 

DEVICE 

6 

ENTRY 

. wqru 

DE V7 

1 ADD* 

OF 

DEVICE 

7 

Entry 

,wORO 

Of V § 

MOOR 

OF 

DEVICE 

8 

ENTRY 


f 

; 

t 


i E N T R Y 

i OF Ug 

V I CF TABLE 



I 

DEV 1 1 

« WOHU 

63 

j L I NK BLOCK PTR 



.RA0&3 

/t?F / 

? physical device name 

oef ault 


.byte 

a 

mow open switch 



.BYTE 

0 

I UN 2 T NUM DEFAULT 



.RADS?) 

/FUR/ 

^DEFAULT FILE NAME 



. RAO 50 

/P«l 1 




.RAQS0 

/DAT/ 

! DEFAULT EXTENSION 



.BYTE 

233 

i no auto del* group a 

OTHERS READ/RUN ONLY 


.BYTE 


I DEVICE STATUS SWITCH 



.BYTE 

63 

jmoqE OF I/O « FUNCN 

WORD (RANDOM] 


• BY It 

13 

?STATuS of l/o 



• wQSD 

51 

JRECORD COUNT * BLOCK 

NUM (RANDOM) 


.WORD 

0 

ibuff addr (Random! 



. HORO 

13 

f BUF LEN (RANDOM) 



. *urQ 

0 

} associated vas addr 

(FRO* DEFINE FILE) 


.WORD 

0 

?NUM RECORDS IN FILE 

(FROM DEFINE FILE) 


.horu 

0 

fRECORD LENGTH (FROM 

DEFINE FILE) 


,wURU 

0 

JU3E* ID CODE 



, W.ORD 

41 

lERROR vas ADOR (FROM 

SETFIl) 



J 

? 

1 

;£NT»¥ 

! 

DEV2I 


i 

I 

? 

| ENTS V 


? 

0EV3J 


I 

) 

! 

r ENTRY 


DEV4I 


I 

? 

JENTRY 


5 OF DEVICE TABLE 


WORD 

0 

RA0$8 

/OF / 

byte 

Z , 0 

RAQSsZ 

/FOR/ 

RAO50 

/pas/ 

RADS8 

/oat/ 

syte 

234,0,0,0 

wOBQ 

0,0, 0,0, 8, 8,3, 8 


OF QEV 

ICE TABLE 

WORD 

0 

RAQ50 

/OF / 

BYTE 

0,0 

RAOB0 

/FOR/ 

RAO50 

/003/ 

RAOSZ 

/o at/ 

BYTE 

234,8,3, 0 

WORD 

0.«»0.0»0.B,0,0 


p jp jj K 

VICE TABLE 

w CRD 

0 

R AO 50 

/pH / 

BYTE 

0,0 

RADS0 

/FOR/ 

RAO50 

/004/ 

RAQS0 

/OAT/ 

6> ¥ T fe 

234,0,8,0 

WORD 

8,0, 0,8, 0,8, 8,0 


5 OF DEVICE TABLE 


# 

DEVS* 


I 

I 

y ENTRY 


WORD 

0 

RAQ58 

/LP / 

BYTE 

0,8 

R A 0 5 8 

/FOR/ 

RAp50 

/005/ 

R A0S8 

/oat/ 

BYTE 

234,0,0,0 

WORD 

0.0, 8, 0,0, 0,8,0 


6 OF DEVICE TABLE CLOGGING DEVICE NOTE PriYS DEV nAmE} 


P 

DEV0I ,wQpQ 0 

.RAnaz /kb / 

.BYTE 0,0 
.RA05Z /FOR/ 
,RAOS^ /fl0 6/ 




- R AOS? 

/OAT / 



■ BVTfc 

233,6,0,0 


t 

• WORD 



? 

1 

7 OF DEVICE TABLE 


f 

0EV7I 

• WORD 

0 



e RAD30 

/OF / 



• byte 

sS,0 



.RAO50 

/FOR/ 



o RAO 50 

/06J?/ 



»RAO50 

/DAT/ 



• BYTE 

233,0.0.0 


? 

i 

1 

lENTSy 

I 

« w OR D 

0. 0,3, 0,0 6 0, 0» 0 


g OF OE' 

VICE TABLE 


» 

0EV8* 

.WORD 

0 



,SAO50 

/OF / 



.BYTE 

0,g 



•RAOSg 

/FOR/ 



.RAOS? 

/00S/ 



s RAO50 

/oat/ 



.BYTE 

233,0,0,0 


1 

t w 0 R U 

0,0, 3, 0,0,0 


? SPECIAL ENTRY 
• 

FOR ERROR PROCESSORS MSG ?2UE 

t 

e W 0 R D 

0 

> LINK BLOCK ERR RTN ADQR 

OEVERR* 

, wORQ 

0 

ILINK PTR 


e R AD 50 

/ERR/ 

? LUG DATA SET N ARE 


.BYTE 

£ 

j physical ds name follow! 


.BYT E 

0 

mjnit hum 


•RAD50 

/OF / 

f physical os name 


• WORD 

0 

IFILE BLOCK error RETURN aodr 


• BYTE 

4 

1 HQW TO OPEN eOPENl) 


.byte 

0 

f ERROR RTn CODE 


•RAD 50 

/FOR/ 

iFILfc NAME 


•RAD50 

/?Rn/ 



•RAO50 

/M5G/ 



* BYTE 

1 

1 USER ID CODE 


• BYTE 

1 



• BYTE 

322,0 

MllDw only input access 


• WORD 

2 

jfunCtion word creaod 


• WORD 

0 

1 BLOCk nUM 


• WORD 

0 

?BLOCk adds 


• WORD 

0 

I3L0CK Length 


1 

t 



HOW TO OBTAIN SOFTWARE INFO RM AT I ON 


Announcements for new and revised software , as we! I as programming notes , 
software problems, and documentation corrections are published by Software 
information Service in the following newsletters. 

Digital Software News for the PDF- 8 & PDP-12 
Digital Software News for the PDF— 1 1 
Digital Software News for the PD P-9/1 5 Family 

These newsletters contain information applicable to software available from 
Digital's Program Library, Articles in Digital Software News update the 
cumulative Software Performance Summary which is contained in each basic 
kit of system software for new computers. To assure that the monthly Digital 
Software News is sent to the appropriate software contact at your installation, 
please check with the Software Specialist or Soles Engineer at your nearest 
Digital office. 

Questions or problems concerning Digital's Software should be reported to 
the Software Specialist. In cases where no Software Specialist Is available, 
please send a Software Performance Report form with details of the problem to: 


Software information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms which are provided in the software kit should be f u i v filled out 
and accompanied by teletype output as well as listings or tapes of the user 
program to facilitate a complete investigation. An answer will be sent to the 
individual and appropriate topics of genera! interest will be printed in the 
newsletter. 

Orders for new and revised software and manuals, additional Software Per- 
formance Report forms, and software price lists should be directed to the 
nearest Digital Field office or representative. U.S.A. customers may order 
directly from the Program Library in Maynard. When ordering, include the 
code number and a brief description of the software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user library 
and publishes a catalog of programs as well as the DECUSCQPE magazine 
for its members and non-members who request it. For further information 
please write to: 


DECUS 

Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 0S754 



PPP-11 Getting FORTRAN On. th. Air 
DE C-il- S FOB -D, A u g u r, t 1 9 7 3 


READER'S COMMENTS 

Digitci Equipment Corporation maintains a continuous effort to improve the quality and usefulness 
of its publications. To do this effectively we need user feedback ~~ your critical evaluation of 
this manual . 

Please comment on this manual's completeness, accuracy organization, usability and tead-- 
ability . 



Did you find errors in this manual? If so, specify by page 



How can this manual be improved? 
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